home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / devioustools21.dms / devioustools21.adf / utils / 007.lzx / netbeginner / scripts / StartInternet < prev    next >
Text File  |  1988-05-13  |  4KB  |  106 lines
  1. ;*** Use this example script to start your dynamic PPP Internet
  2. ;*** connection so you can keep the original Startnet script intact
  3. ;***
  4. ;*** Utilisez ce script exemple pour démarrer votre connection
  5. ;*** Internet PPP dynamique, vous garderez ainsi le script original
  6. ;*** Startnet intact.
  7. ;***
  8. ;*** NEEDED: AmiTCP/IP 4.0 or up (Aminet:comm/tcp/AmiTCP_demo_40.lha)
  9. ;***         PPP 1.30 or up      (Aminet:comm/net/PPP1_30.lha)
  10. ;***         Serline             (included)
  11. ;*** USEFULL: Online-o-Meter      (Aminet:comm/misc/Online1_4.lha)
  12. ;***          PhoneBill           (Aminet:comm/misc/pbill33d.lha)
  13. ;***          socket.library      (available from Thor Home pages)
  14. ;***
  15. ;*** note: lines begining with ';' are comments ;)
  16. ;***
  17.  
  18. if NOT exists env:IPMODEMPORT
  19.    setenv IPMODEMPORT "serial.device 0"
  20. ;                      ^^^^^^^^^^^^^ ^
  21. ;              edit this if you use another device or another port
  22. ;              éditez ceci si vous utilisez un autre device ou port
  23. endif
  24.  
  25.  
  26. rx 'if show("P","AMITCP") then return 5' ; *** is AmiTCP running ?
  27. if warn
  28.    echo "AmiTCP is already running !"
  29.    quit
  30. endif
  31.  
  32. startnet                           ; *** start AmiTCP
  33.  
  34. serline "!" $IPMODEMPORT           ; *** check Carrier
  35.  
  36. if $rc EQ 0                        ; *** if Carrier is present...
  37.  
  38.  
  39. ; *** Start Online-o-meter if exists and not yet running ***
  40. ; *** (edit the full path to OnlineMeter & Online.prefs) ***
  41. ; ***                                                    ***
  42. ; *** Démarre Online-o-meter s'il existe et n'est pas    ***
  43. ; *** déjà lancé.                                        ***
  44. ; *** (éditez le chemin vers OnlineMeter & Online.prefs) ***
  45. ;
  46.    IF EXISTS Work:Comms/Online-o-Meter/OnlineMeter
  47.    ;         ^^^^^^^^^^^^^^^^^^^^^^^^^^
  48.       IF `rx "say show('P','OnlineREXX')"` EQ 0
  49.          run <>NIL: Work:Comms/Online-o-Meter/OnlineMeter x 280
  50.          ;          ^^^^^^^^^^^^^^^^^^^^^^^^^^
  51.          WaitForPort OnlineREXX
  52.       ENDIF
  53.  
  54.    ; *** Set OnlineMeter calling zone ***
  55.    ;
  56.    rx "address 'OnlineREXX'; readprefs 'Work:Data/Comms/OnlineConfig/Online.prefs'"
  57.    ;                                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  58.    rx "address 'OnlineREXX'; setcomment 'Ping (362030)'"
  59.    ;                                     ^^^^  ^^^^^^
  60.    ;                      set your POP's name&phone number
  61.    ;                     ajustez le nom et le numéro de téléphone
  62.    ;                     de votre fournisseur d'accès.
  63.  
  64.    ; *** Start Online-o-meter timming ***
  65.    ;
  66.    rx "address 'OnlineREXX'; start 1"
  67.  
  68.    ENDIF
  69.  
  70.  
  71. ; *** If your IAP support proxy server,      ***
  72. ; *** set some of these environment variable ***
  73. ; *** for use with AMosaic.                  ***
  74. ; ***                                        ***
  75. ; *** Si votre fournisseur supporte le cache ***
  76. ; *** proxy, déclare les variables ENV pour  ***
  77. ; *** une utilisation avec AMosaic.          ***
  78. ;
  79.    ;setenv WWW_http_GATEWAY   "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  80.    setenv http_proxy         "http://proxy.ping.be:8080/"
  81.    ;setenv WWW_file_GATEWAY   "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  82.    ;setenv WWW_ftp_GATEWAY    "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  83.    ;setenv WWW_gopher_GATEWAY "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  84.    ;setenv WWW_news_GATEWAY   "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  85.    ;setenv WWW_telnet_GATEWAY "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  86.    ;setenv WWW_wais_GATEWAY   "xxxxxxxxxxxxxxxxxxxxxxxxxx"
  87.    ;                           ^^^^^^^^^^^^^^^^^^^^^^^^^^
  88.    ;                 of course, edit THIS to Your proxy server
  89.  
  90.  
  91. ; *** The following is needed by some client (eg: ConnectThor) ***
  92. ; ***                                                          ***
  93. ; *** Les lignes suivantes sont nécessaires pour certains      ***
  94. ; *** clients (ex: ConnectThor)                                ***
  95. ;
  96.    IF EXISTS AmiTCP:libs/socket.library
  97.       if NOT exists env:SOCKETCONFIG
  98.          setenv SOCKETCONFIG "UID=200 GID=100 USER=MyUserID DOMAIN=ping.be UMASK=022"
  99.          ;                                         ^^^^^^^^        ^^^^^^^
  100.          ;                                                edit this
  101.       endif
  102.       LOADLIB AmiTCP:libs/socket.library
  103.    ENDIF
  104.  
  105. endif
  106.